home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Utilities / Programming / MT2Trivial 2.1.3 / MT2Trivial 2.1.3 ƒ / MT2Trivial Templates ƒ / MakeMenu.p.Trivial < prev    next >
Encoding:
Text File  |  1996-07-28  |  588 b   |  27 lines  |  [TEXT/MPS ]
  1.  
  2. {%%DOC: MakeMenu.p.Trivial -- begin}
  3.  
  4. PROCEDURE DoMakeMenus;
  5.     var
  6.         menuBar: Handle;
  7.     
  8.     BEGIN
  9.       menuBar:=GetNewMBar(MBARID); {read menus and menu bar}
  10.     
  11.       IF menuBar<>NIL
  12.         THEN
  13.           BEGIN
  14.             SetMenuBar(menuBar); {insert menus into the current menu list}
  15.             DisposHandle(menuBar);
  16.             AddResMenu(GetMHandle(AppleID),'DRVR'); {add desktop items in Apple Menu
  17.                                                    Items folder to Apple menu}
  18.                                                 
  19.             {%% >> adjust items and enabled state of menus <<}
  20.             
  21.             DrawMenuBar; {draw the menu bar}
  22.     
  23.           END;
  24.     END; {DoMakeMenus}
  25.  
  26. {%%DOC: MakeMenu.p.Trivial -- eof}
  27.